现代地图学作业

>

小组成员:黄焱威、索南东主、谢云鹏、李春林

作业说明:


   本次作业采用了mapbox和leaflet+R两种方式制图,其中用mapbox进行山东省GDP分布图、降雨分布图、风向分布图、温度分布图、pm2.5分布图的制作,用R-leaflet进行京津冀植被图和北京市房价图的制作。另外,制作网页时用到了iscroll.js(作用:使标签滑动更加流畅。方法:摁住标签页左右滑动)

   注:(1)设计网页时用到的布局文件为xddtx_homework.css。
     (2)mapbox中图例以及显示属性的交互采用Mapbox Studio和Mapbox GLJS 完成。
     (3)开发用到的文件(除shp以外)均以上传到github。  点我跳向github





mapbox制图展示






R+Leaflet制图

library(leaflet)
aqi <- read.csv("data/price_house1.csv",fileEncoding = 'GBK')
pal <- colorQuantile("YlOrRd", NULL, n=10)
leaflet(aqi) %>% addProviderTiles(providers$Esri.NatGeoWorldMap)%>% 
  addCircleMarkers(~lon, ~lat, popup=aqi$price,
                  # radius = log2(aqi$price),
                   stroke = FALSE, fillOpacity = 0.8,
                   color= ~pal(price)) 
library(leaflet)
library(maptools)
path <- "data/"
poly <- readShapePoly(paste(path,"plant.shp",sep =""))
#转换字符编码
poly$植被型 = iconv(poly$植被型,"UTF8","UTF8")
#绘制全国,并且以省的名字为弹出窗
addPolygons(leaflet()%>%addProviderTiles(providers$CartoDB.Positron),data = poly,popup=~植被型,
            fillColor = topo.colors(10, alpha = NULL), stroke = FALSE
            )